Acala

Row

Pool
acala-subql
acala-dex-subql
Difference
id tvlUSD volumeUSD_24H volumeUSD_7D tvlUSD_DEX volumeUSD_24H_DEX volumeUSD_7D_DEX Absolute Percentage
lp://AUSD/LDOT 547,384.8 0.76 342,991.9 1,094,770 1.53 889,333.3 547,384.77 100
lp://DOT/LCDOT 3,552,469.0 3,199.36 2,660,221.9 3,542,416 3,189.62 2,694,995.1 10,053.19 1.8
lp://AUSD/LCDOT 2,015,639.6 2,832.85 2,460,542.5 2,010,254 2,824.25 2,560,568.9 5,385.72 1
lp://ACA/AUSD 2,227,848.8 2,539.95 2,498,295.7 2,226,944 2,539.84 2,770,425.5 904.67 0.2

Karura

Row

Pool
acala-subql
acala-dex-subql
Difference
id tvlUSD volumeUSD_24H volumeUSD_7D tvlUSD_DEX volumeUSD_24H_DEX volumeUSD_7D_DEX Absolute Percentage
lp://KBTC/AUSD -1,258,718.30 -2,958.04 -13,689.38 NA NA NA NA NA
lp://KINT/AUSD -1,207,174.75 -1,157.18 -9,226.38 NA NA NA NA NA
lp://PHA/AUSD -972,494.96 -247.56 -6,957.24 NA NA NA NA NA
lp://AUSD/KINT 1,185,190.13 -872.64 -9,055.75 21,446.68 1,990.42 16,806.78 1,163,743.45 NA
lp://AUSD/PHA 955,889.10 -157.41 -5,936.17 24,490.79 765.51 25,049.69 931,398.32 NA
lp://AUSD/KBTC 1,135,584.35 -49.58 -5,738.37 417,369.16 506.93 227,073.66 718,215.18 NA
lp://TAI/taiKSM 0.00 0.00 0.00 4,000.97 97.50 3,942.29 4,000.97 NA
lp://KAR/KSM 845,541.34 5,659.68 657,776.31 847,082.84 5,632.87 660,597.70 1,541.49 NA
lp://AUSD/CSM 27,002.99 1,434.49 7,220.44 25,533.41 1,434.49 10,008.41 1,469.58 NA
lp://KAR/AUSD 433,382.05 3,200.69 339,537.82 434,173.25 3,160.20 432,026.96 791.20 NA
lp://KAR/LKSM 596,938.77 2,527.53 392,362.25 596,381.60 2,521.67 422,030.79 557.17 NA
lp://AUSD/LKSM 419,590.09 2,220.60 856,006.66 419,275.52 2,273.61 903,891.01 314.57 NA
lp://AUSD/BNC 62,591.30 550.58 35,324.05 62,780.69 550.58 35,560.88 189.39 NA
lp://AUSD/RMRK 11,140.35 69.46 13,861.98 11,285.38 69.57 13,863.15 145.03 NA
lp://KSM/LKSM 128,360.91 1,338.55 192,355.68 128,270.76 1,327.65 193,716.97 90.15 NA
lp://KSM/ARIS 89.47 2.19 126.47 178.94 4.27 337.56 89.47 NA
lp://AUSD/QTZ 26,948.38 30.65 11,184.94 27,009.29 30.65 19,947.31 60.91 NA
lp://KAR/QTZ 21,937.64 30.85 7,743.87 21,968.72 30.89 14,947.36 31.08 NA
lp://KSM/RMRK 40,590.95 70.95 56,070.40 40,602.30 70.99 56,617.84 11.35 NA
lp://AUSD/KSM 554,069.63 15,393.32 1,225,741.02 554,071.61 15,393.32 1,225,946.23 1.98 NA
---
title: "Acala / Karura Pool Stats"
output:
  flexdashboard::flex_dashboard:
    orientation: rows
    vertical_layout: scroll
    social: menu
    source_code: embed
---

```{css custom1, echo=FALSE}
.dataTables_scrollBody {
    max-height: 100% !important;
}
```

```{r global, include=FALSE}

library(knitr)
knitr::opts_chunk$set(
  message = FALSE,
  warning = FALSE,
  comment = "#>"
)

library(kableExtra)
library(formattable)
library(lubridate)
library(flexdashboard)
library(DT)
library(subscanr)
library(ghql)
x <- GraphqlClient$new()

# Helper function to concat
`%+%` <- function(a, b) paste0(a, b)

# library(reticulate)

```

```{r tokens, cache = TRUE, include=FALSE}

pools_a <- getPoolStats_acala('acala')
pools_a[, volumeUSD_24H := as.numeric(volumeUSD_24H)]
pools_a[, volumeUSD_7D := as.numeric(volumeUSD_7D)]

pools_a_dex <- getPoolStats_acala_dex('acala') %>%
  setnames("totalTVL", "tvlUSD_DEX")
pools_a_dex[, volumeUSD_24H := as.numeric(volumeUSD_24H)]
pools_a_dex[, volumeUSD_7D := as.numeric(volumeUSD_7D)]

both_a <- merge(pools_a[, .(id, tvlUSD, volumeUSD_24H, volumeUSD_7D)],
                pools_a_dex[, .(id, tvlUSD_DEX, volumeUSD_24H, volumeUSD_7D)],
                by = "id",
                all = TRUE,
                suffixes = c("", "_DEX"))
both_a[, Absolute := abs(tvlUSD - tvlUSD_DEX)] %>% 
  setorder(-Absolute)
both_a[, Percentage := round((Absolute / min(tvlUSD, tvlUSD_DEX)) * 100, 1)]

both_a[, Percentage := ifelse(Percentage > 5, 
                   cell_spec(Percentage, color = "red"), 
                   cell_spec(Percentage, color = "green"))]



pools_k <- getPoolStats_acala('karura')
pools_k[, volumeUSD_24H := as.numeric(volumeUSD_24H)]
pools_k[, volumeUSD_7D := as.numeric(volumeUSD_7D)]

# FOR DEX must use dailyTradeVolumeUSD instead of tradeVolumeUSD
pools_k_dex <- getPoolStats_acala_dex('karura') %>%
  setnames("totalTVL", "tvlUSD_DEX")
pools_k_dex[, volumeUSD_24H := as.numeric(volumeUSD_24H)]
pools_k_dex[, volumeUSD_7D := as.numeric(volumeUSD_7D)]

pools_k[, .(id, token0.name, token1.name)]

both_k <- merge(pools_k[, .(id, tvlUSD, volumeUSD_24H, volumeUSD_7D)],
                pools_k_dex[, .(id, tvlUSD_DEX, volumeUSD_24H, volumeUSD_7D)],
                by = "id",
                all = TRUE,
                suffixes = c("", "_DEX"))
both_k[, Absolute := abs(tvlUSD - tvlUSD_DEX)] %>% 
  setorder(-Absolute)
both_k[, Percentage := round((Absolute / min(tvlUSD, tvlUSD_DEX)) * 100, 1)]

both_k[, Percentage := ifelse(Percentage > 5, 
                   cell_spec(Percentage, color = "red"), 
                   cell_spec(Percentage, color = "green"))]

```

# Acala {.tabset}

Row
----

```{r acala1}

knitr::kable(both_a, escape = FALSE, digits = 2, format.args = list(big.mark = ",")) %>%
  kable_styling() %>%
  add_header_above(c("Pool" = 1, "acala-subql" = 3, "acala-dex-subql" = 3, "Difference" = 2))

```


# Karura {.tabset}

Row
----

```{r karura1}

knitr::kable(both_k, escape = FALSE, digits = 2, format.args = list(big.mark = ",")) %>%
  kable_styling() %>%
  add_header_above(c("Pool" = 1, "acala-subql" = 3, "acala-dex-subql" = 3, "Difference" = 2))

```